COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	{$S+ so we include the Pascal source lines }
C00004 ENDMK
C⊗;
{$S+ so we include the Pascal source lines }

procedure alloc;
var e1: ↑event; e2: ↑enventry; e3: ↑envheader; e4: ↑environment; p: ↑pdb;
    s1: ↑strng; s2: ↑statement; t: ↑token; i: ↑ident; f: ↑frame; v: ↑varidef;
    c: ↑cmoncb;
begin
new(freeVectors);
new(freeTrans);
new(freeNodes);
new(free4);
new(free8);
new(free10);
new(free11);
new(e1); (* Event *)
new(e2); (* Enventry *)
new(e3); (* Envheader *)
new(e4); (* Environment *)
new(s1); (* Strng *)
new(s2); (* Statement *)
new(t); (* Token *)
new(i); (* Ident *)
new(v); (* Varidef *)
new(f); (* Frame *)
new(p); (* Pdb *)
new(c);	(* Cmoncb *)
p↑.level := 4;
p↑.mode := 60;
p↑.priority := 12;
p↑.procp := true;
end;

begin
alloc;
end.